home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 April / 1988-04.d64 / demo 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  427 b   |  17 lines
  1. 5 poke50913,1:poke50959,1:poke50918,0:poke50964,0:poke50923,0:poke50969,0
  2. 10 poke53281,6:print"";:@3:@2
  3. 20 @4,20,50:@7,20,150,0
  4. 30 @4,300,50:@7,300,150,0
  5. 50 ph=(NULL)*3/4
  6. 60 forj=0to31
  7. 70 ag=(NULL)*j/16
  8. 80 y1%=cos(ag)*50+100:y2%=cos(ag+ph)*50+100
  9. 90 @4,20,y1%:@7,300,y2%,0
  10. 100 nextj
  11. 110 @4,0,0:@7,319,0,0:@7,319,199,0:@7,0,199,0:@7,0,0,0
  12. 115 fori=0to2500:nexti
  13. 120 print"[147]print twist pattern (y/n)?":@1
  14. 130 getc$:if(c$="")goto130
  15. 140 if(c$<>"y")thenprint"[147]":end
  16. 150 @2:@14:print"[147]":@1:end
  17.